home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 53
/
64er_Magazin_Sonderheft_53_19xx_Markt__Technik_de_Side_A.d64
/
source init 31 k
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
65 lines
10 ;*********************************
11 ;
12 ; bildschirmspeicher verschieben
13 ; ------------------------------
14 ;
15 ; giga-ass hilfs-routine
16 ;
17 ; der bildschirmspeicher wird
18 ; von $0400-$07ff nach $cc00-
19 ; $cfff verschoben.
20 ;
21 ; danach ist der quelltextspeicher
22 ; in $0400-$8000 (31 k).
23 ;
24 ;*********************************
100 step"init 31 k,p,w"
110 +$2c3
120 tab(p=$fc
130 ;
140 ; 1. rom-zeichensatz in ram
150 ; umkopieren ($d000-$dfff)
160 ;
170 start len#0
180 (NULL)p
190 mid$#$d0
200 (NULL)p+1
210 (NULL)
220 loop mid$#$33
230 (NULL)1
240 mid$&p,y
250 (NULL)1
260 (NULL)&p,y
270 right$p
280 (NULL)loop
290 right$p+1
300 peekp+1
310 tan#$e0
320 (NULL)loop
330 mid$#$37
340 (NULL)1
350 ;
360 ; 2. alten bildschirm-ram freigeben
370 ;
380 mid$#4
390 (NULL)$282
400 ;
410 ; 3. bildschirmspeicher auf $cc00
420 ;
430 mid$$dd00
440 asc#%11111100
450 (NULL)$dd00
460 mid$#$35
470 (NULL)$d018
480 mid$#$cc
490 (NULL)$288
500 ;
510 ; 4. giga-ass re-initialisieren
520 ;
530 (NULL)($8009)
540 ;
550 ; 5. auto-start adresse setzen
560 ;
570 spc(0,start
580 <